3.493 \(\int \frac {x^{-1+4 n}}{b x^n+c x^{2 n}} \, dx\)

Optimal. Leaf size=46 \[ \frac {b^2 \log \left (b+c x^n\right )}{c^3 n}-\frac {b x^n}{c^2 n}+\frac {x^{2 n}}{2 c n} \]

[Out]

-b*x^n/c^2/n+1/2*x^(2*n)/c/n+b^2*ln(b+c*x^n)/c^3/n

________________________________________________________________________________________

Rubi [A]  time = 0.04, antiderivative size = 46, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 23, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.130, Rules used = {1584, 266, 43} \[ \frac {b^2 \log \left (b+c x^n\right )}{c^3 n}-\frac {b x^n}{c^2 n}+\frac {x^{2 n}}{2 c n} \]

Antiderivative was successfully verified.

[In]

Int[x^(-1 + 4*n)/(b*x^n + c*x^(2*n)),x]

[Out]

-((b*x^n)/(c^2*n)) + x^(2*n)/(2*c*n) + (b^2*Log[b + c*x^n])/(c^3*n)

Rule 43

Int[((a_.) + (b_.)*(x_))^(m_.)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d
*x)^n, x], x] /; FreeQ[{a, b, c, d, n}, x] && NeQ[b*c - a*d, 0] && IGtQ[m, 0] && ( !IntegerQ[n] || (EqQ[c, 0]
&& LeQ[7*m + 4*n + 4, 0]) || LtQ[9*m + 5*(n + 1), 0] || GtQ[m + n + 2, 0])

Rule 266

Int[(x_)^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Dist[1/n, Subst[Int[x^(Simplify[(m + 1)/n] - 1)*(a
+ b*x)^p, x], x, x^n], x] /; FreeQ[{a, b, m, n, p}, x] && IntegerQ[Simplify[(m + 1)/n]]

Rule 1584

Int[(u_.)*(x_)^(m_.)*((a_.)*(x_)^(p_.) + (b_.)*(x_)^(q_.))^(n_.), x_Symbol] :> Int[u*x^(m + n*p)*(a + b*x^(q -
p))^n, x] /; FreeQ[{a, b, m, p, q}, x] && IntegerQ[n] && PosQ[q - p]

Rubi steps

\begin {align*} \int \frac {x^{-1+4 n}}{b x^n+c x^{2 n}} \, dx &=\int \frac {x^{-1+3 n}}{b+c x^n} \, dx\\ &=\frac {\operatorname {Subst}\left (\int \frac {x^2}{b+c x} \, dx,x,x^n\right )}{n}\\ &=\frac {\operatorname {Subst}\left (\int \left (-\frac {b}{c^2}+\frac {x}{c}+\frac {b^2}{c^2 (b+c x)}\right ) \, dx,x,x^n\right )}{n}\\ &=-\frac {b x^n}{c^2 n}+\frac {x^{2 n}}{2 c n}+\frac {b^2 \log \left (b+c x^n\right )}{c^3 n}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.03, size = 38, normalized size = 0.83 \[ \frac {2 b^2 \log \left (b+c x^n\right )+c x^n \left (c x^n-2 b\right )}{2 c^3 n} \]

Antiderivative was successfully verified.

[In]

Integrate[x^(-1 + 4*n)/(b*x^n + c*x^(2*n)),x]

[Out]

(c*x^n*(-2*b + c*x^n) + 2*b^2*Log[b + c*x^n])/(2*c^3*n)

________________________________________________________________________________________

fricas [A]  time = 1.06, size = 38, normalized size = 0.83 \[ \frac {c^{2} x^{2 \, n} - 2 \, b c x^{n} + 2 \, b^{2} \log \left (c x^{n} + b\right )}{2 \, c^{3} n} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^(-1+4*n)/(b*x^n+c*x^(2*n)),x, algorithm="fricas")

[Out]

1/2*(c^2*x^(2*n) - 2*b*c*x^n + 2*b^2*log(c*x^n + b))/(c^3*n)

________________________________________________________________________________________

giac [F]  time = 0.00, size = 0, normalized size = 0.00 \[ \int \frac {x^{4 \, n - 1}}{c x^{2 \, n} + b x^{n}}\,{d x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^(-1+4*n)/(b*x^n+c*x^(2*n)),x, algorithm="giac")

[Out]

integrate(x^(4*n - 1)/(c*x^(2*n) + b*x^n), x)

________________________________________________________________________________________

maple [A]  time = 0.03, size = 62, normalized size = 1.35 \[ \left (-\frac {b \,{\mathrm e}^{2 n \ln \relax (x )}}{c^{2} n}+\frac {{\mathrm e}^{3 n \ln \relax (x )}}{2 c n}\right ) {\mathrm e}^{-n \ln \relax (x )}+\frac {b^{2} \ln \left (c \,{\mathrm e}^{n \ln \relax (x )}+b \right )}{c^{3} n} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(x^(-1+4*n)/(b*x^n+c*x^(2*n)),x)

[Out]

(1/2/c/n*exp(n*ln(x))^3-b/c^2/n*exp(n*ln(x))^2)/exp(n*ln(x))+b^2/c^3/n*ln(c*exp(n*ln(x))+b)

________________________________________________________________________________________

maxima [A]  time = 0.93, size = 45, normalized size = 0.98 \[ \frac {b^{2} \log \left (\frac {c x^{n} + b}{c}\right )}{c^{3} n} + \frac {c x^{2 \, n} - 2 \, b x^{n}}{2 \, c^{2} n} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^(-1+4*n)/(b*x^n+c*x^(2*n)),x, algorithm="maxima")

[Out]

b^2*log((c*x^n + b)/c)/(c^3*n) + 1/2*(c*x^(2*n) - 2*b*x^n)/(c^2*n)

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.02 \[ \int \frac {x^{4\,n-1}}{b\,x^n+c\,x^{2\,n}} \,d x \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(x^(4*n - 1)/(b*x^n + c*x^(2*n)),x)

[Out]

int(x^(4*n - 1)/(b*x^n + c*x^(2*n)), x)

________________________________________________________________________________________

sympy [A]  time = 19.83, size = 42, normalized size = 0.91 \[ \frac {b^{2} \left (\begin {cases} \frac {x^{n}}{b} & \text {for}\: c = 0 \\\frac {\log {\left (b + c x^{n} \right )}}{c} & \text {otherwise} \end {cases}\right )}{c^{2} n} - \frac {b x^{n}}{c^{2} n} + \frac {x^{2 n}}{2 c n} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x**(-1+4*n)/(b*x**n+c*x**(2*n)),x)

[Out]

b**2*Piecewise((x**n/b, Eq(c, 0)), (log(b + c*x**n)/c, True))/(c**2*n) - b*x**n/(c**2*n) + x**(2*n)/(2*c*n)

________________________________________________________________________________________